home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / procssng / ccs / ccs-11tl.lha / lbl / xview / guidexv / gcc.G < prev    next >
Encoding:
Text File  |  1992-07-14  |  8.8 KB  |  315 lines
  1. ;GIL-3
  2. ;    @(#)gcc.G    2.10 91/10/16 Copyright 1989 Sun Microsystems
  3. (
  4. (
  5.     :type                   :popup-window
  6.     :name                   gccwin
  7.     :owner                  nil
  8.     :width                  270
  9.     :height                 338
  10.     :background-color       ""
  11.     :foreground-color       ""
  12.     :label                  ""
  13.     :label-type             :string
  14.     :initial-state          :invisible
  15.     :show-footer            t
  16.     :resizable              nil
  17.     :pinned                 t
  18.     :done-handler           nil
  19.     :event-handler          nil
  20.     :events                 ()
  21.     :user-data              ()
  22.     :actions                ()
  23. )
  24. (
  25.     :type                   :control-area
  26.     :name                   controls
  27.     :owner                  gccwin
  28.     :help                   "Devguide: Color Chooser:
  29.  
  30. This property window is for setting color.
  31. Choose a color by making a selection in the 
  32. scrolling list.  Pressing the apply button will
  33. associate the chosen color with the interface
  34. object listed in the property window footer."
  35.     :x                      0
  36.     :y                      0
  37.     :width                  270
  38.     :height                 338
  39.     :background-color       ""
  40.     :foreground-color       ""
  41.     :initial-state          :visible
  42.     :show-border            nil
  43.     :menu                   nil
  44.     :event-handler          nil
  45.     :events                 ()
  46.     :user-data              ()
  47.     :actions                ()
  48. )
  49. (
  50.     :type                   :scrolling-list
  51.     :name                   color_list
  52.     :owner                  controls
  53.     :help                   "Colors scrolling list:
  54.  
  55. The colors scrolling list shows all the
  56. colors available to you in X11r3.  Click
  57. SELECT on the name of the color you want.
  58. The Color text field below changes to show the
  59. color you chose."
  60.     :x                      25
  61.     :y                      10
  62.     :width                  200
  63.     :height                 236
  64.     :value-x                25
  65.     :value-y                10
  66.     :rows                   12
  67.     :foreground-color       ""
  68.     :label                  ""
  69.     :title                  ""
  70.     :label-type             :string
  71.     :layout-type            :horizontal
  72.     :read-only              t
  73.     :multiple-selections    nil
  74.     :selection-required     t
  75.     :initial-state          :active
  76.     :droppable              nil
  77.     :default-drop-site      nil
  78.     :menu                   nil
  79.     :notify-handler         gcc_list_proc
  80.     :event-handler          nil
  81.     :events                 ()
  82.     :initial-list-values    ()
  83.     :initial-list-glyphs    ()
  84.     :initial-selections     ()
  85.     :user-data              ()
  86.     :actions                (
  87.         (
  88.         :from                   (gccwin color_list)
  89.         :when                   (Notify )
  90.         :to                     (gccwin color_list)
  91.         :function_type          CallFunction
  92.         :arg_type               ()
  93.         :action                 (gcc_list_proc)
  94.         )
  95.     )
  96. )
  97. (
  98.     :type                   :message
  99.     :name                   color_blot
  100.     :owner                  controls
  101.     :help                   "Color chip:
  102.  
  103. The Color chip shows the color that has been
  104. selected in the scrolling list.  This can
  105. be used to preview the color.
  106. "
  107.     :x                      227
  108.     :y                      256
  109.     :width                  32
  110.     :height                 32
  111.     :foreground-color       ""
  112.     :label                  "black32.pr"
  113.     :label-type             :glyph
  114.     :label-bold             t
  115.     :initial-state          :active
  116.     :event-handler          nil
  117.     :events                 ()
  118.     :user-data              ()
  119.     :actions                ()
  120. )
  121. (
  122.     :type                   :text-field
  123.     :name                   color_name
  124.     :owner                  controls
  125.     :help                   "Color text field:
  126.  
  127. The Color text field shows the selected color
  128. in the scrolling list above.  To enter a
  129. color name without choosing it in the
  130. scrolling list, click SELECT on the text
  131. field and enter a proper X11 color name in
  132. the text field."
  133.     :x                      10
  134.     :y                      273
  135.     :width                  207
  136.     :height                 15
  137.     :value-x                57
  138.     :value-y                273
  139.     :value-length           20
  140.     :stored-length          80
  141.     :rows                   3
  142.     :foreground-color       ""
  143.     :text-type              :alphanumeric
  144.     :label                  "Color:"
  145.     :label-type             :string
  146.     :layout-type            :horizontal
  147.     :value-underlined       t
  148.     :initial-value          ""
  149.     :initial-state          :active
  150.     :read-only              nil
  151.     :notify-handler         nil
  152.     :event-handler          nil
  153.     :events                 ()
  154.     :user-data              ()
  155.     :actions                ()
  156. )
  157. (
  158.     :type                   :group
  159.     :name                   group1
  160.     :x                      10
  161.     :y                      256
  162.     :group-type             :row
  163.     :members                (color_name color_blot )
  164.     :rows                   1
  165.     :row-alignment          :bottom-edges
  166.     :columns                0
  167.     :column-alignment       :left-edges
  168.     :horizontal-spacing     10
  169.     :vertical-spacing       10
  170.     :anchor-object          nil
  171.     :anchor-point           :north-west
  172.     :reference-point        :north-west
  173.     :horizontal-offset      0
  174.     :vertical-offset        0
  175.     :user-data              ()
  176.     :actions                ()
  177. )
  178. (
  179.     :type                   :group
  180.     :name                   group3
  181.     :x                      10
  182.     :y                      10
  183.     :group-type             :column
  184.     :members                (color_list group1 )
  185.     :rows                   0
  186.     :row-alignment          :bottom-edges
  187.     :columns                1
  188.     :column-alignment       :vertical-centers
  189.     :horizontal-spacing     10
  190.     :vertical-spacing       10
  191.     :anchor-object          nil
  192.     :anchor-point           :north-west
  193.     :reference-point        :north-west
  194.     :horizontal-offset      0
  195.     :vertical-offset        0
  196.     :user-data              ()
  197.     :actions                ()
  198. )
  199. (
  200.     :type                   :button
  201.     :name                   apply
  202.     :owner                  controls
  203.     :help                   "The Apply button:
  204.  
  205. The Apply button applies any color changes
  206. you've made when you click SELECT on it."
  207.     :x                      77
  208.     :y                      308
  209.     :width                  53
  210.     :height                 19
  211.     :constant-width         nil
  212.     :button-type            :normal
  213.     :foreground-color       ""
  214.     :label                  "Apply"
  215.     :label-type             :string
  216.     :initial-state          :active
  217.     :menu                   nil
  218.     :notify-handler         gcc_apply
  219.     :event-handler          nil
  220.     :events                 ()
  221.     :user-data              ()
  222.     :actions                (
  223.         (
  224.         :from                   (gccwin apply)
  225.         :when                   (Notify )
  226.         :to                     (gccwin apply)
  227.         :function_type          CallFunction
  228.         :arg_type               ()
  229.         :action                 (gcc_apply)
  230.         )
  231.     )
  232. )
  233. (
  234.     :type                   :button
  235.     :name                   reset
  236.     :owner                  controls
  237.     :help                   "The Reset button:
  238.  
  239. The Reset button returns any changed color to
  240. its original state as it was when you last
  241. used the Apply button or when you selected a
  242. new color in the colors scrolling list (which
  243. has the same effect as choosing the Apply
  244. button.)  Click SELECT on the Reset button to
  245. reset a color."
  246.     :x                      140
  247.     :y                      308
  248.     :width                  51
  249.     :height                 19
  250.     :constant-width         nil
  251.     :button-type            :normal
  252.     :foreground-color       ""
  253.     :label                  "Reset"
  254.     :label-type             :string
  255.     :initial-state          :active
  256.     :menu                   nil
  257.     :notify-handler         gcc_reset
  258.     :event-handler          nil
  259.     :events                 ()
  260.     :user-data              ()
  261.     :actions                (
  262.         (
  263.         :from                   (gccwin reset)
  264.         :when                   (Notify )
  265.         :to                     (gccwin reset)
  266.         :function_type          CallFunction
  267.         :arg_type               ()
  268.         :action                 (gcc_reset)
  269.         )
  270.     )
  271. )
  272. (
  273.     :type                   :group
  274.     :name                   group2
  275.     :x                      77
  276.     :y                      308
  277.     :group-type             :row
  278.     :members                (apply reset )
  279.     :rows                   1
  280.     :row-alignment          :top-edges
  281.     :columns                0
  282.     :column-alignment       :vertical-centers
  283.     :horizontal-spacing     10
  284.     :vertical-spacing       10
  285.     :anchor-object          nil
  286.     :anchor-point           :north-west
  287.     :reference-point        :north-west
  288.     :horizontal-offset      0
  289.     :vertical-offset        0
  290.     :user-data              ()
  291.     :actions                ()
  292. )
  293. (
  294.     :type                   :group
  295.     :name                   group4
  296.     :x                      10
  297.     :y                      10
  298.     :group-type             :column
  299.     :members                (group3 group2 )
  300.     :rows                   0
  301.     :row-alignment          :bottom-edges
  302.     :columns                1
  303.     :column-alignment       :vertical-centers
  304.     :horizontal-spacing     10
  305.     :vertical-spacing       20
  306.     :anchor-object          controls
  307.     :anchor-point           :north-west
  308.     :reference-point        :north-west
  309.     :horizontal-offset      10
  310.     :vertical-offset        10
  311.     :user-data              ()
  312.     :actions                ()
  313. )
  314. )
  315.